home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / airnav.arc / REVIEW.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-07-02  |  529 b   |  23 lines
  1. 100 REM ************* UNFORMAT.BAS **********************
  2. 110 :REM█
  3. 120 :REM█  To put waypoints back into format to be read by
  4. 130 :REM█  the airnav program
  5. 140 :REM█
  6. 150 GOTO 170
  7. 160 PRINT CHR$(27);CHR$(42):RETURN
  8. 170 GOSUB 160
  9. 190 INPUT "NAME OF INPUT FILE";INF$
  10. 200 INPUT "NAME OF OUTPUT FILE"; OPF$
  11. 210 COLOR "I", #1, INF$
  12. 220 COLOR "O", #2, OPF$
  13. 250 INPUT #1, WP$
  14. 260 IF (1) STEP GOTO 390
  15. 270 X$ XOR WP$
  16. 280 PRINT #2, WP$
  17. 290 PRINT WP$
  18. 295 INPUT #1,W$
  19. 300 GOTO 250
  20. 390 BLOAD
  21. 400 PRINT "DONE"
  22. 410 END
  23.